home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / asciit1a / asciigam.frm < prev    next >
Text File  |  1999-07-01  |  4KB  |  156 lines
  1. VERSION 5.00
  2. Begin VB.Form AsciiGame 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Ascii Game"
  5.    ClientHeight    =   1695
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   2895
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1695
  13.    ScaleWidth      =   2895
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.Timer Timer1 
  16.       Left            =   1320
  17.       Top             =   240
  18.    End
  19.    Begin VB.Frame fmeScore 
  20.       Caption         =   "Score"
  21.       Height          =   615
  22.       Left            =   120
  23.       TabIndex        =   4
  24.       Top             =   960
  25.       Width           =   2655
  26.       Begin VB.Label lblScore 
  27.          Caption         =   "0"
  28.          Height          =   255
  29.          Left            =   360
  30.          TabIndex        =   5
  31.          Top             =   240
  32.          Width           =   2055
  33.       End
  34.    End
  35.    Begin VB.TextBox txtChar 
  36.       Height          =   375
  37.       Left            =   1560
  38.       TabIndex        =   1
  39.       Top             =   480
  40.       Width           =   1215
  41.    End
  42.    Begin VB.TextBox txtAscii 
  43.       Height          =   375
  44.       Left            =   120
  45.       TabIndex        =   0
  46.       Top             =   480
  47.       Width           =   1215
  48.    End
  49.    Begin VB.Label lblChar 
  50.       Alignment       =   2  'Center
  51.       Caption         =   "Character"
  52.       Height          =   255
  53.       Left            =   1560
  54.       TabIndex        =   3
  55.       Top             =   120
  56.       Width           =   1215
  57.    End
  58.    Begin VB.Label lblAscii 
  59.       Alignment       =   2  'Center
  60.       Caption         =   "Ascii"
  61.       Height          =   255
  62.       Left            =   120
  63.       TabIndex        =   2
  64.       Top             =   120
  65.       Width           =   1215
  66.    End
  67. End
  68. Attribute VB_Name = "AsciiGame"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73. Option Explicit
  74. Dim temp1 As Integer, temp2 As Integer, score As Integer
  75.  
  76. Private Sub Form_Load()
  77.     score = 1
  78.     Timer1.Interval = 5000
  79.     MsgBox ( _
  80.         "RULES:" _
  81.         & Chr(13) & Chr(13) & _
  82.         "Fill in the blank text box so that it " & _
  83.         "matches the ascii code or character " & _
  84.         "filled in the other text box." _
  85.         & Chr(13) & Chr(13) & _
  86.         "The left text box contains the ascii code" _
  87.         & Chr(13) & _
  88.         "The right text box contains the character" _
  89.         & Chr(13) & Chr(13) & _
  90.         "Every 5 seconds a new round starts" _
  91.         & Chr(13) & _
  92.         "If you don't fill in the blank correctly, " & _
  93.         "you lose a point" _
  94.         & Chr(13) & _
  95.         "If you fill it in correctly, you gain a point." _
  96.         & Chr(13) & Chr(13) & _
  97.         "Have fun!" _
  98.     )
  99.     Timer1.Enabled = True
  100. End Sub
  101.  
  102. Private Sub Form_Unload(Cancel As Integer)
  103.     Timer1.Enabled = False
  104. End Sub
  105.  
  106. Private Sub Timer1_Timer()
  107.     If txtAscii.Text = "" Or txtChar.Text = "" Then
  108.     scoreDown
  109.     Else
  110.         If txtAscii.Text = Asc(txtChar.Text) Then
  111.             scoreUp
  112.         Else
  113.             scoreDown
  114.         End If
  115.     End If
  116.     txtAscii.Enabled = True
  117.     txtChar.Enabled = True
  118.     txtAscii.Text = ""
  119.     txtChar.Text = ""
  120.     Randomize
  121.     temp1 = Int((Rnd * 2) + 1)
  122.     If temp1 = 1 Then
  123.         txtAscii.Text = Int((Rnd * 94) + 33) '33-126
  124.         txtAscii.Enabled = False
  125.     ElseIf temp1 = 2 Then
  126.         txtChar.Text = Chr(Int((Rnd * 94) + 33)) '33-126
  127.         txtChar.Enabled = False
  128.     End If
  129. End Sub
  130.  
  131. Sub scoreDown()
  132.     score = score - 1
  133.     lblScore.Caption = score
  134. End Sub
  135.  
  136. Sub scoreUp()
  137.     score = score + 1
  138.     lblScore.Caption = score
  139. End Sub
  140.  
  141. Private Sub txtAscii_Change()
  142.     If IsNumeric(txtAscii.Text) = False Then
  143.         txtAscii.Text = ""
  144.     ElseIf txtAscii.Text < 0 Then
  145.         txtAscii.Text = 0
  146.     ElseIf txtAscii.Text > 255 Then
  147.         txtAscii.Text = 255
  148.     End If
  149. End Sub
  150.  
  151. Private Sub txtChar_Change()
  152.     If Len(txtChar.Text) > 1 Then
  153.         txtChar.Text = ""
  154.     End If
  155. End Sub
  156.